home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2005 November / WNnov2005.iso / Windows / Equipement / hMailServer / hMailServer-4.1-Build-136.exe / {app} / PHPWebAdmin / distributionlists_add.php < prev    next >
PHP Script  |  2005-04-05  |  3KB  |  71 lines
  1. <?php
  2. /*
  3. ** $Id: distributionlists_add.php,v 1.4 2005/04/05 20:19:10 hmailserver Exp $
  4. **
  5. **    hMailServer - Web interface
  6. **
  7. **    File formatted using TAB size 4
  8. **
  9. **    Get hMailserver at http://www.hmailserver.com
  10. **
  11. **    Author: Steen Rab°l <srabol@mail.tele.dk>
  12. **    Copyright (c) 2004, Steen Rab°l <srabol@mail.tele.dk>
  13. **
  14. **  This program is free software; you can redistribute it and/or modify
  15. **  it under the terms of the GNU General Public License as published by
  16. **  the Free Software Foundation; either version 2 of the License, or
  17. **  (at your option) any later version.
  18. **
  19. **  You may not change or alter any portion of this comment or credits
  20. **  of supporting developers from this source code or any supporting
  21. **  source code which is considered copyrighted (c) material of the
  22. **  original comment or credit authors.
  23. **
  24. **  This program is distributed in the hope that it will be useful,
  25. **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  26. **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27. **  GNU General Public License for more details.
  28. **
  29. **  You should have received a copy of the GNU General Public License
  30. **  along with this program; if not, write to the Free Software
  31. **  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  32. **
  33. */
  34. $DomainID    = hmailGetVar("DomainID",null);
  35. $function    = hmailGetVar("function","");
  36.  
  37. if (hmailGetAdminLevel() == 0)
  38.     hmailHackingAttemp(); // Users are not allowed to show this page.
  39.  
  40. if (hmailGetAdminLevel() == 1 && $DomainID != hmailGetDomainID())
  41.     hmailHackingAttemp(); // Domain admin but not for this domain.
  42.  
  43. $obDomain    = $obBaseApp->Domains->ItemByDBID($DomainID);
  44.  
  45. switch($function)
  46. {
  47.     case "doadd":
  48.         $obDistributionlists    = $obDomain->DistributionLists();
  49.         $obDistributionlist        = $obDistributionlists->Add();
  50.         
  51.         $obDistributionlist->Address = hmailGetVar("Address") . "@" . $obDomain->Name;
  52.         $obDistributionlist->Active        = (hmailGetVar("Active") == "1") ? 1 : 0;
  53.         if(hmailGetVar("RequireSMTPAuth","") != "")
  54.             $obDistributionlist->RequireSMTPAuth = true;
  55.         else
  56.             $obDistributionlist->RequireSMTPAuth = false;
  57.  
  58.         $obDistributionlist->RequireSenderAddress = hmailGetVar("RequireSenderAddress","");
  59.  
  60.         $obDistributionlist->Save();
  61.         $DistributionlistID = $obDistributionlist->ID;
  62.         header("refresh: 0; url=index.php?page=distributionlists_recipients&DomainID=$DomainID&DistributionlistID=$DistributionlistID");
  63.         exit();
  64.         break;
  65.  
  66.     default:
  67.         $hmailSmarty->assign("domain",$obDomain);
  68.         $hmailSmarty->assign("pagecontent", $hmailSmarty->fetch('distributionlists_add.tpl'));
  69.         break;
  70. }
  71. ?>